svyset SurveyID [pweight= weight], vce(linearized) singleunit(missing)

/***** READ ME *********
This file recreates the results for Table 1. Use R&P Canada Data.dta

Creating Dummy Variables for Responsiblity 

gen polresp=0
replace polresp=1 if creditblame==2

gen polresp2=0
replace polresp2=. if creditblame>3
replace polresp2=1 if creditblame==2  

gen globeresp=0
replace globeresp=1 if creditblame==3

gen globeresp2=0
replace globeresp2=. if creditblame>3
replace globeresp2=1 if creditblame==3  

gen creditOutcome=. if creditblame>3
replace creditOutcome=1 if creditblame==1
replace creditOutcome=2 if creditblame==2
replace creditOutcome=3 if creditblame==3 */



/* Panel 3 */
svy: tab polresp treatment, col ci level(90)

/* Panel 4 */
svy: tab globeresp treatment, col ci level(90)

/* NEW CONFIDENCE INTERVAL AROUND PERCENTAGE GRAPHS */
svy: tab creditOutcome treatment, col ci level(95)

